home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
17bals.zip
/
RBBSSUB1.ALS
< prev
next >
Wrap
Text File
|
1988-10-12
|
5KB
|
153 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against virgin17\rbbssub1.bas to produce ..\rbbssub1.bas
* rbbssub1.bas: Date 10-2-1988 Size 52864 bytes
* ------------[ Created 10-11-1988 06:53:23 ]------------
* REPLACING old line(s) by new
59660 SUB PUTWORK (STRNG$,REC.NUM,REC.LEN) STATIC
ON ERROR GOTO 65000
FIELD #2,REC.LEN AS UPLOAD.RECORD$
LSET UPLOAD.RECORD$ = STRNG$
REC.NUM = REC.NUM + 1
PUT #2,REC.NUM
END SUB
* ------[ first line different ]------
'
' $SUBTITLE: 'DGSALIAS - Subroutine to Create/Update Alias Info file'
' $PAGE
'
' SUBROUTINE NAME -- DGSALIAS
'
' INPUT PARAMETERS -- PARAMETER MEANING
' GRN$ CONFERENCE NAME
' ORIG.USER.NAME$ USERS - LOG ON NAME
' DGS.ALIAS$ USERS - ALIAS NAME
' DGS.STL$ NULL FIRST TIME IN
' 'STILL' IF ALIAS EXISTS
' OR REAL NAME
' DGS.FILE.NAME$ CONFERENCE ALIAS FILE
'
' OUTPUT PARAMETERS -- GRN$ ORIG.USER.NAME$ DGS.ALIAS$ DGS.STL$
' DGS.FILE.NAME$
'
' SUBROUTINE PURPOSE -- TO READ CONFA.DEF AND GET USERS ALIAS OR
' CREATE ONE
'
SUB DGSALIAS (GRN$,ORIG.USER.NAME$,DGS.ALIAS$,DGS.STL$,DGS.FILE.NAME$) STATIC
'
IF DGS.STL$ = "" THEN
CONFA.DEF.FLAG = 0
CALL BRKFNAME (MAIN.USER.FILE$,DRV$,PREFIX$,EXT$,TRUE)
DGS.FILE.NAME$ = DRV$ + GRN$ + "A.DEF"
CALL FINDIT (DGS.FILE.NAME$)
IF OK THEN
CONFA.DEF.FLAG = TRUE
END IF
IF CONFA.DEF.FLAG = TRUE THEN
OPEN "I", 7, DGS.FILE.NAME$
DGS.ALIAS$ = ""
WHILE DGS.ALIAS$ = "" AND NOT EOF(7)
INPUT #7, DGS.USER.NAME$, DGS.TEMP.ALIAS$
DGS.UNL = LEN(DGS.USER.NAME$)
IF DGS.USER.NAME$ = LEFT$(ORIG.USER.NAME$,DGS.UNL) THEN
DGS.ALIAS$ = DGS.TEMP.ALIAS$
END IF
WEND
CLOSE 7
ELSE
DGS.ALIAS$ = "NO CONFA.DEF"
EXIT SUB
END IF
END IF
CALL GOODALS (GRN$,ORIG.USER.NAME$,DGS.ALIAS$,DGS.STL$,DGS.FILE.NAME$)
END SUB
'
'
' $SUBTITLE: 'GOODALS - Subroutine to Make Sure Alias Good'
' $PAGE
'
' SUBROUTINE NAME -- GOODALS
'
' INPUT PARAMETERS -- PARAMETER MEANING
' GRN$ CONFERENCE NAME
' ORIG.USER.NAME$ USERS - LOG ON NAME
' DGS.ALIAS$ USERS - ALIAS NAME
' DGS.STL$ NULL FIRST TIME IN
' 'STILL' IF ALIAS EXISTS
' OR REAL NAME
' DGS.FILE.NAME$ CONFERENCE ALIAS FILE
'
' OUTPUT PARAMETERS -- GRN$ ORIG.USER.NAME$ DGS.ALIAS$ DGS.STL$
' DGS.FILE.NAME$
'
' SUBROUTINE PURPOSE -- TO READ CONFA.DEF AND SEE IF GET USERS ALIAS IS
' ALREADY IN USE OR A REAL NAME
'
SUB GOODALS (GRN$,ORIG.USER.NAME$,DGS.ALIAS$,DGS.STL$,DGS.FILE.NAME$) STATIC
'
IF DGS.ALIAS$ = "" THEN
DGS.SFN.SLN$ = SYSOP.FIRST.NAME$+" "+SYSOP.LAST.NAME$
A$ = "Do you" +DGS.STL$+ " want to use an Alias? (Y,[N])"
SUBROUTINE.PARAMETER = 1
CALL TGET
IF YES THEN
ABFLG$ = ""
A$ = "Enter Alias (31 Char. Max.) "
SUBROUTINE.PARAMETER = 1
CALL TGET
CALL ALLCAPS (B$)
IF B$ = "" OR INSTR(SPACE$(31),B$) > 0 THEN
B$ = ""
ABFLG$ = "Alias Must NOT be Blank"
END IF
IF LEN(B$) > 31 THEN
B$= ""
ABFLG$ = "Length Must NOT Exceed 31 Characters"
END IF
IF B$ = "SYSOP" OR B$ = DGS.SFN.SLN$ THEN
A$ = CHR$(7)+CHR$(7)
A$ = A$ + "Wrong Answer! Alias Request Denied!"
A$ = A$ + CHR$(13) + "Contact Sysop for Alias Retry"
CALL QTPUT (A$,2)
DGS.ALIAS$ = ORIG.USER.NAME$+CHR$(250)
ACTIVE.USER.NAME$ = ORIG.USER.NAME$+CHR$(250)
FIRST.NAME$ = ORIG.USER.NAME$+CHR$(250)
ELSE
OPEN "I", 7, DGS.FILE.NAME$
WHILE ABFLG$ = "" AND NOT EOF(7)
INPUT #7, DGS.USER.NAME$, DGS.TEMP.ALIAS$
IF B$ = DGS.USER.NAME$ THEN
ABFLG$ = " is a Real User"
ELSE
IF B$ = DGS.TEMP.ALIAS$ THEN
ABFLG$ = " has Already been Used"
END IF
END IF
WEND
CLOSE 7
IF ABFLG$="" THEN
DGS.ALIAS$ = B$
ACTIVE.USER.NAME$ = B$
FIRST.NAME$ = B$
ELSE
A$="Sorry "+FIRST.NAME$+" but "+B$+ABFLG$
CALL QTPUT (A$,1)
DGS.STL$ = " still"
DGS.ALIAS$ = ""
END IF
END IF
ELSE
DGS.ALIAS$ = ORIG.USER.NAME$
END IF
IF DGS.ALIAS$ <> "" THEN
CLOSE 2
OPEN "A", 2, DGS.FILE.NAME$
WRITE #2, ORIG.USER.NAME$, DGS.ALIAS$
CLOSE 2
END IF
ELSE
ACTIVE.USER.NAME$ = DGS.ALIAS$
FIRST.NAME$ = DGS.ALIAS$
END IF
END SUB